home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / amsf20.zip / AMST2.FOR < prev    next >
Text File  |  1992-01-06  |  534b  |  21 lines
  1.       PROGRAM AMST2
  2.       IMPLICIT INTEGER*4(I-N)
  3.       COMMON  MAVAIL,IA(30000)
  4.       MAVAIL = 30000
  5. C
  6. C ... AMS TEST PROGRAM 2
  7. C
  8.       CALL DBOPEN(1,'DB2.DAT','NEW')
  9.       CALL DEFINE(1,'TS1',0,1,10,10,2,LOC)
  10.       CALL DEFINE(1,'TS2',6,0,5,5,1,LOC)
  11.       CALL DEFINE(1,'TS3',0,2,7,6,0,LOC)
  12.       CALL DEFINE(1,'TS4',5,1,6,4,0,LOC)
  13.       CALL DBOPEN(2,'DB1.DAT','OLD')
  14.       CALL DIR(6)
  15.       CALL DSORT
  16.       CALL DIR(6)
  17.       CALL DBCLOS(2,'DELETE')
  18.       CALL DBCLOS(1,'DELETE')
  19.       STOP 'DONE.'
  20.       END
  21.